10 REM ******************************** 11 REM * * 12 REM * WATOR VERSION 1.0/K * 13 REM * 8.4.1985 * 14 REM * * 15 REM * COPYRIGHT BY * 16 REM * * 17 REM * SIEGMAR KUTSCHKER * 18 REM * SACHSENHEIMER WEG 5 * 19 REM * 7122 BESIGHEIM * 20 REM * * 21 REM * NACH EINER IDEE AUS * 22 REM * * 23 REM * SPEKTRUM DER WISSENSCHAFT * 24 REM * * 25 REM * 2/85 * 26 REM * * 30 REM ******************************** 40 POKE 56,112:POKE 55,0:REM BASIC BEREICH EINSCHRAENKEN 45 : 50 IF PEEK(2) = 0 THEN GOSUB 24000:POKE2,1 60 REM DEFINITIONEN DER ADRESSEN 70 HP = 34816 :REM PROGRAMM-START 75 ZP = 36608 :REM ERSATZZEROPAGE 80 FA = ZP + 116:REM FISCHE ANZAHL 85 HA = ZP + 118:REM HAIE ANZAHL 90 VF = ZP + 120:REM VERMEHRUNGSALTER FISCH 95 VH = ZP + 121:REM VERMEHRUNGSALTER HAIE 100 HU = ZP + 122:REM ALTER IN DEM HAIE VERHUNGERN 105 ZU = ZP + 6:REM ZUFALLSGENERATOR 115 HU%=1:VH%=1:VF%=1:REM ANFANGSWERTE SETZEN 120 POKE 53280,0:POKE 53281,0 :POKE 646,1:REM FARBE SETZEN 130 PRINT CHR$(147):REM BILDSCHIRM LOESCHEN 140 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 150 PRINT" [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208] " 160 PRINT" [180] [170] " 170 PRINT" [180] W A T O R [170] " 180 PRINT" [180] [170] " 190 PRINT" [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] " 200 PRINT:PRINT:PRINT:PRINT:PRINT TAB(3) "WOLLEN SIE EINE ANLEITUNG LESEN?" 210 PRINT:PRINT TAB(3) "(J/N)" 220 GET T$:IF T$ = "" THEN 220 230 IF T$ = "J" THEN GOSUB 16000:GOTO250 240 IF T$ <> "N" THEN 220 250 GOSUB 10200 300 REM MENUE 301 POKE 53280,0:POKE 53281,0 :POKE 646,8:REM FARBE SETZEN 305 PRINTCHR$(147);:PRINT TAB(11)"ZYKLENANZAHL: " AZ:POKE 646,1:PRINT 310 PRINT"FISCHE VERMEHREN SICH NACH JAHR(EN)" 315 PRINT:POKE 646,7 320 PRINT" HAIE VERMEHREN SICH NACH JAHR(EN) 325 [153]:[153]:[151] 646,1 330 [153]" WIR HABEN DERZEIT FISCH(E) 335 POKE 646,7 340 PRINT" UND HAI(E) 345 [153]:[151] 646,7 350 [153]" DIE HAIE VERHUNGERN NACH JAHR(EN) 355 PRINT:POKE 646,5 360 PRINT" BITTE WAEHLEN SIE: 365 [153]:[153]: [151] 646,14 370 [153]" <1> ANLEITUNG 375 PRINT:POKE 646,3 380 PRINT" <2> AENDERN DER PARAMETER 385 [153]:[151] 646,4 390 [153]" <3> FORTFAHREN IM PROGRAMM 400 PRINTCHR$(19):PRINT:POKE 646,10 410 PRINT TAB(26) VF% 420 PRINT:PRINTTAB(26) VH% 430 PRINT:PRINT:PRINTTAB(26) FA% 440 PRINTTAB(26) HA% 450 PRINT:PRINTTAB(26) HU% 460 POKE 646,1 500 GET T$:IF T$ = "" THEN 500 510 IF T$ = "1" THEN GOSUB 16000:GOTO300 520 IF T$ = "2" THEN GOSUB 10000:GOTO300 530 IF T$ = "H" THEN GOSUB 18650:GOTO300 540 IF T$<> "3"THEN 500 1000 POKE ZU,256*RND(1) 1010 POKE ZU+1,256*RND(1) 1020 IF AZ=0 THEN SYS HP 1030 SYS HP+3 1040 IF PEEK(ZP+128)=0 THEN AZ=AZ+65536:GOTO 1030 1050 AZ = AZ + PEEK(ZP+129) + PEEK(ZP+130)*256+1 1060 FA% = PEEK(FA)+PEEK(FA+1)*256 1070 HA% = PEEK(HA)+PEEK(HA+1)*256 1100 GOTO 300 9000 STOP 10000 PRINTCHR$(147):POKE 646,1:UG =0:OG=512:I=FA%: 10005 PRINT"OHNE EINGABE BLEIBEN DIE ALTEN WERTE ERHALTEN":PRINT:PRINT:PRINT 10010 PRINT"BISHER HATTEN WIR "I "FISCHE":PRINT 10020 PRINT"WIEVIELE IN ZUKUNFT":GOSUB15000 10030 PRINT:FA% = I 10040 UG = 0:OG = 512 -FA%:I = HA% 10050 PRINT"BISHER HATTEN WIR "I "HAIE":PRINT 10060 PRINT"WIEVIELE IN ZUKUNFT":GOSUB15000 10070 PRINT:HA% = I 10080 UG = 1:OG = 255 10090 PRINT:PRINT:PRINT"BISHER VERMEHRTEN SICH FISCHE NACH" 10100 PRINT"DEM "VF%" TEN JAHR" 10110 PRINT"NACH WIEVIELEN JAHREN IN ZUKUNFT" 10120 I = VF%:GOSUB 15000:VF%=I 10130 PRINT:PRINT:PRINT"BISHER VERMEHRTEN SICH HAIE NACH" 10140 PRINT"DEM "VH%" TEN JAHR" 10150 PRINT"NACH WIEVIELEN JAHREN IN ZUKUNFT" 10160 I = VH%:GOSUB 15000:VH%=I 10170 PRINT:PRINT:PRINT"BISHER VERHUNGERTEN HAIE NACH" 10180 PRINT"DEM "HU%" TEN JAHR" 10190 PRINT"NACH WIEVIELEN JAHREN IN ZUKUNFT":I=HU%:GOSUB15000:HU%=I 10200 POKE VH,VH%-1:W = VH%-1:GOSUB 11000:POKE VH+3,W1 10210 POKE VF,VF%-1:W = VF%-1:GOSUB 11000:POKE VF+3,W1 10220 POKE HU,HU%-1:W = HU%-1:GOSUB 11000:POKE HU+3,W1 10240 POKE HA+1,INT(HA%/256) 10250 POKE HA,HA%-INT(HA%/256)*256 10260 POKE FA+1,INT(FA%/256) 10270 POKE FA,FA%-INT(FA%/256)*256 10280 AZ = 0 10300 RETURN 11000 W1=0 11010 IF W1=I THEN RETURN 15300 PRINT:PRINT"WERT ZWISCHEN " UG" UND "OG "EINGEBEN!":GOTO 15000 16000 REM ANLEITUNG 16050 PRINT CHR$ (147):PRINT:PRINT:PRINT 16100 PRINT TAB(12) "*********" 16150 PRINT TAB(12) "* WATOR *" 16200 PRINT TAB(12) "*********" 16250 PRINT:PRINT 16300 PRINT TAB(5) "IST EIN SEHR INTERESSANTES":PRINT 16350 PRINT TAB(5) "SIMULATIONSPROGRAMM.":PRINT 16400 PRINTTAB(5)"SIMULIERT WIRD EIN OEKOSYSTEM, IN":PRINT 16450 PRINTTAB(5)"DEM SICH ZWEI VERSCHIEDENE ARTEN":PRINT 16500 PRINTTAB(10)"VON TIEREN TUMMELN:":PRINT 16550 PRINTTAB(11)"HAIE UND FISCHE.":PRINT:PRINT:PRINT 16600 GOSUB 21000:PRINT 16650 PRINTTAB(5)"JEDES TIER KANN SICH BEWEGEN UND":PRINT 16700 PRINTTAB(5)"SICH VERMEHREN, WOBEI DIE":PRINT 16750 PRINTTAB(5)"HAIE VERSUCHEN, DIE FISCHE ZU":PRINT 16800 PRINTTAB(5)"FRESSEN. NAHRUNG FUER DIE FISCHE":PRINT 16850 PRINTTAB(5)"GIBT ES IM UEBERFLUSS.":PRINT 16900 PRINTTAB(5)"FINDET EIN HAI EINE ZEIT LANG":PRINT 16950 PRINTTAB(5)"KEINEN FISCH, SO VERHUNGERT ER.":PRINT 17000 PRINTTAB(5)"LEBENSRAUM IST EIN SEE, DER IN":PRINT 17050 PRINTTAB(5)"DER FORM EINES TORUSSES GEKRUEMMT":PRINT 17100 PRINTTAB(5)"IST. DAHER DER NAME 'WATOR'.":PRINT 17110 PRINT:PRINT:GOSUB 21000 17120 FORI=0TO10:PRINT:NEXT 17200 PRINTTAB(5)"MEHR ZU DIESEM THEMA FINDEN SIE":PRINT 17230 PRINTTAB(5)"IM SPEKTRUM DER WISSENSCHAFT":PRINT 17260 PRINTTAB(15)"2/85.":FORI=0TO10:PRINT:NEXT:GOSUB 21000: 17265 FOR I=1TO 20:PRINT:NEXT 17270 PRINTTAB(5)"VON IHNEN KOENNEN 5 VERSCHIEDENE":PRINT 17300 PRINTTAB(5)"PARAMETER EINGESTELLT WERDEN.":PRINT 17310 PRINTTAB(10)"UND ZWAR:":FORI=0TO10:PRINT:NEXT:GOSUB 21000 17320 FOR I=0TO 30:PRINT:NEXT 17330 PRINTTAB(5)"DIE VARIABLE":PRINT 17350 PRINTTAB(5)"'ANZAHL DER FISCHE'.":PRINT 17370 PRINTTAB(5)"DIESE VARIABLE WIRD AM ANFANG":PRINT 17400 PRINTTAB(5)"EINES DURCHLAUFS GESETZT UND":PRINT 17420 PRINTTAB(5)"WAEHREND DES DURCHLAUFS STAENDIG":PRINT 17450 PRINTTAB(5)"AKTUALISIERT.":PRINT 17470 PRINTTAB(5)"MAN FINDET IHREN WERT AM BILD-":PRINT 17500 PRINTTAB(5)"SCHIRM UNTEN LINKS." 17530 PRINT:PRINT:PRINT:PRINT:GOSUB 21000 17550 FORI=1TO30:PRINT:NEXT 17570 PRINTTAB(5)"'ANZAHL DER HAIE' IST DIE":PRINT 17600 PRINTTAB(5)"ENTSPRECHENDE VARIABLE FUER DIE":PRINT 17630 PRINTTAB(5)"HAIE.":PRINT 17650 PRINTTAB(5)"MAN FINDET SIE UNTEN RECHTS.":PRINT 17670 PRINTTAB(5)"IST DIE ANZAHL DER HAIE = 0, SO":PRINT 17680 PRINTTAB(5)"KEHRT DAS PROGRAMM IN DAS GRUND-":PRINT 17690 PRINTTAB(5)"MENUE ZURUECK, EBENSO, WENN":PRINT 17693 PRINTTAB(5)"WAEHREND DES PROGRAMMLAUFS DIE":PRINT 17695 PRINTTAB(5)"RESTORE-TASTE GEDRUECKT WIRD." 17700 PRINT:PRINT:PRINT:PRINT:PRINT:GOSUB 21000:FORI=0TO30:PRINT:NEXT 17720 PRINTTAB(5)"DIE VARIABLE":PRINT 17730 PRINTTAB(5)"'VERMEHRUNG FISCHE' GIBT AN,NACH":PRINT 17750 PRINTTAB(5)"WIEVIELEN JAHREN SICH DIE FISCHE":PRINT 17770 PRINTTAB(5)"VERMEHREN;":PRINT 17800 PRINTTAB(5)"OB NACH DEM ERSTEN, ZWEITEN":PRINT 17830 PRINTTAB(5)"DRITTEN.....":PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 17850 GOSUB 21000:FORI=0TO30:PRINT:NEXT 17870 PRINTTAB(5)"'VERMEHRUNG HAIE' ERFUELLT DENSEL-":PRINT 17900 PRINTTAB(5)"BEN ZWECK BEI DEN HAIEN.":PRINT 17920 FOR I=0TO 10:PRINT:NEXT:GOSUB 21000 17950 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 17970 PRINTTAB(5)"DIE VARIABLE 'HUNGER' GIBT AN,":PRINT 18000 PRINTTAB(5)"NACH WIEVIELEN JAHREN EIN HAI":PRINT 18030 PRINTTAB(5)"STIRBT, WENN ER IN DIESER ZEIT":PRINT 18050 PRINTTAB(5)"KEINEN FISCH ZUM FRESSEN FINDET.":PRINT 18070 PRINTTAB(5)"OB NACH EIN, ZWEI, DREI.....":PRINT 18100 PRINTTAB(5)"JAHREN." 18130 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 18150 GOSUB21000 18170 FORI=1TO20:PRINT:NEXT 18200 PRINTTAB(5)"ZUSAETZLICH FINDEN SIE IN DER ":PRINT 18230 PRINTTAB(5)"MITTE OBEN DIE ANZAHL DER ZYKLEN,":PRINT 18250 PRINTTAB(5)"DIE SEIT DEM START DIESER":PRINT 18270 PRINTTAB(5)"KOMBINATION VERGANGEN SIND." 18300 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 18330 GOSUB 21000:FORI=1TO15:PRINT:NEXT 18350 PRINTTAB(5)"DIES KLINGT JETZT ALLES":PRINT 18370 PRINTTAB(5)"FURCHTBAR KOMPLIZIERT, UND SIE ":PRINT 18400 PRINTTAB(5)"WERDEN AM ANFANG SCHWIERIGKEITEN":PRINT 18430 PRINTTAB(5)"HABEN, EIN OEKOSYSTEM ZU ENTWER-":PRINT 18450 PRINTTAB(5)"FEN, DAS NICHT SCHON NACH WENIGEN":PRINT 18470 PRINTTAB(5)"HUNDERT JAHREN ZUSAMMENBRICHT. ":PRINT:PRINT 18500 PRINTTAB(5)"DRUECKEN SIE 'H' UND DER COMPUTER":PRINT 18530 PRINTTAB(5)"STELLT IHNEN EINE KOMBINATION EIN,":PRINT 18550 PRINTTAB(5)"DIE SICHER LAUEFT!":PRINT 18600 GETT$:IFT$=""THEN 18600 18630 IFT$<>"H"THEN RETURN 18650 VH%=15:VF%=3:HU%=2:FA%=400:HA%=20:GOTO10200 21000 PRINTTAB(7)"WEITER MIT RETURN[146]" 21020 GETT$:IF T$ <> CHR$(13) THEN 21020 21030 GETT$:RETURN 24000 AD = 34816 24010 SU = 0:FOR I = 1 TO 8: READ A :POKE AD,A:SU=SU+A:AD=AD+1:NEXT 24020 READA:IF SU<>A THENPRINT"TIPPFEHLER IN ZEILE "30000 + 10*Z:END 24030 Z=Z+1:IFAD<=36390THEN24010 24500 RETURN 30000 DATA 76, 165, 137, 76, 163, 140, 81, 2, 840 30010 DATA 46, 0, 0, 3, 4, 32, 120, 216, 421 30020 DATA 32, 104, 141, 32, 121, 141, 169, 128, 868 30030 DATA 162, 7, 24, 149, 17, 74, 202, 16, 651 30040 DATA 250, 169, 73, 141, 24, 3, 169, 141, 970 30050 DATA 141, 25, 3, 173, 11, 136, 141, 33, 663 30060 DATA 208, 173, 10, 136, 141, 32, 208, 169, 1077 30070 DATA 128, 141, 138, 2, 248, 169, 0, 133, 959 30080 DATA 152, 162, 1, 134, 151, 162, 19, 149, 930 30090 DATA 152, 165, 151, 149, 153, 24, 101, 151, 1046 30100 DATA 133, 151, 165, 152, 101, 152, 133, 152, 1139 30110 DATA 202, 202, 16, 235, 216, 96, 32, 121, 1120 30120 DATA 141, 32, 104, 141, 169, 71, 141, 24, 823 30130 DATA 3, 169, 254, 141, 25, 3, 88, 96, 779 30140 DATA 165, 6, 133, 4, 165, 7, 133, 5, 618 30150 DATA 169, 0, 133, 2, 133, 3, 162, 15, 617 30160 DATA 24, 102, 2, 102, 3, 102, 4, 102, 441 30170 DATA 5, 144, 13, 24, 165, 3, 101, 7, 462 30180 DATA 133, 3, 165, 2, 101, 6, 133, 2, 545 30190 DATA 202, 16, 230, 165, 4, 73, 180, 133, 1003 30200 DATA 7, 165, 3, 73, 229, 133, 6, 162, 778 30210 DATA 7, 134, 16, 169, 0, 102, 3, 102, 533 30220 DATA 4, 42, 102, 3, 102, 4, 42, 149, 448 30230 DATA 8, 202, 16, 239, 96, 166, 16, 180, 923 30240 DATA 8, 198, 16, 48, 171, 96, 104, 141, 782 30250 DATA 62, 3, 104, 141, 63, 3, 32, 94, 502 30260 DATA 136, 76, 102, 254, 41, 15, 133, 25, 782 30270 DATA 208, 3, 32, 198, 136, 32, 189, 136, 934 30280 DATA 200, 152, 41, 3, 168, 165, 25, 57, 811 30290 DATA 17, 0, 240, 244, 200, 152, 24, 10, 887 30300 DATA 133, 26, 96, 204, 4, 244, 4, 28, 739 30310 DATA 5, 68, 5, 108, 5, 148, 5, 188, 532 30320 DATA 5, 228, 5, 12, 6, 52, 6, 92, 406 30330 DATA 6, 132, 6, 172, 6, 212, 6, 252, 792 30340 DATA 6, 36, 7, 133, 107, 138, 41, 31, 499 30350 DATA 133, 108, 169, 0, 133, 109, 152, 41, 845 30360 DATA 15, 168, 10, 10, 10, 10, 10, 38, 271 30370 DATA 109, 101, 108, 166, 107, 149, 37, 149, 926 30380 DATA 57, 149, 47, 149, 67, 149, 77, 165, 860 30390 DATA 109, 105, 112, 149, 38, 105, 2, 149, 769 30400 DATA 48, 105, 2, 149, 58, 105, 2, 149, 618 30410 DATA 68, 105, 2, 149, 78, 152, 10, 168, 732 30420 DATA 185, 243, 136, 101, 108, 149, 97, 149, 1168 30430 DATA 87, 185, 244, 136, 105, 0, 149, 98, 1004 30440 DATA 105, 212, 149, 88, 96, 169, 255, 129, 1203 30450 DATA 37, 129, 47, 129, 57, 129, 67, 129, 724 30460 DATA 77, 173, 13, 136, 129, 97, 173, 12, 810 30470 DATA 136, 129, 87, 96, 129, 37, 169, 0, 783 30480 DATA 129, 57, 173, 8, 136, 129, 97, 173, 902 30490 DATA 9, 136, 129, 87, 96, 129, 47, 152, 785 30500 DATA 129, 77, 169, 0, 129, 67, 169, 255, 995 30510 DATA 129, 37, 173, 6, 136, 129, 97, 173, 880 30520 DATA 7, 136, 129, 87, 96, 32, 14, 136, 637 30530 DATA 165, 120, 74, 133, 132, 165, 121, 74, 984 30540 DATA 133, 134, 169, 0, 133, 131, 133, 133, 966 30550 DATA 169, 0, 133, 110, 133, 112, 133, 147, 937 30560 DATA 133, 148, 133, 149, 133, 150, 168, 169, 1183 30570 DATA 4, 133, 111, 169, 216, 133, 113, 162, 1041 30580 DATA 3, 169, 160, 145, 110, 173, 10, 136, 906 30590 DATA 145, 112, 136, 208, 244, 230, 111, 230, 1416 30600 DATA 113, 202, 48, 7, 208, 235, 160, 232, 1205 30610 DATA 76, 209, 137, 169, 160, 141, 0, 7, 899 30620 DATA 173, 10, 136, 141, 0, 219, 32, 223, 934 30630 DATA 139, 169, 0, 32, 19, 137, 32, 101, 629 30640 DATA 137, 32, 232, 139, 176, 243, 169, 0, 1128 30650 DATA 133, 110, 133, 111, 165, 116, 197, 110, 1075 30660 DATA 208, 9, 165, 117, 197, 111, 208, 3, 1018 30670 DATA 76, 58, 138, 32, 2, 140, 32, 112, 590 30680 DATA 136, 165, 6, 37, 123, 197, 120, 48, 832 30690 DATA 3, 56, 229, 120, 162, 0, 32, 124, 726 30700 DATA 137, 230, 110, 208, 215, 230, 111, 76, 1317 30710 DATA 12, 138, 169, 0, 133, 110, 133, 111, 806 30720 DATA 165, 118, 197, 110, 208, 9, 165, 119, 1091 30730 DATA 197, 111, 208, 3, 76, 122, 138, 32, 887 30740 DATA 2, 140, 32, 112, 136, 165, 6, 37, 630 30750 DATA 125, 197, 122, 48, 3, 56, 229, 122, 902 30760 DATA 168, 165, 7, 37, 124, 197, 121, 48, 867 30770 DATA 3, 56, 229, 121, 162, 0, 32, 141, 744 30780 DATA 137, 230, 110, 208, 203, 230, 111, 76, 1305 30790 DATA 64, 138, 160, 0, 169, 255, 153, 0, 939 30800 DATA 116, 153, 0, 117, 136, 208, 247, 76, 1053 30810 DATA 94, 136, 32, 223, 139, 169, 0, 32, 825 30820 DATA 19, 137, 169, 255, 129, 67, 161, 57, 994 30830 DATA 240, 88, 161, 37, 201, 255, 240, 82, 1304 30840 DATA 32, 46, 140, 32, 87, 140, 32, 125, 634 30850 DATA 140, 162, 0, 165, 126, 37, 127, 208, 965 30860 DATA 20, 161, 37, 197, 120, 240, 6, 24, 805 30870 DATA 105, 1, 76, 192, 138, 32, 76, 141, 761 30880 DATA 129, 37, 76, 242, 138, 32, 212, 136, 1002 30890 DATA 162, 0, 161, 37, 197, 120, 208, 21, 906 30900 DATA 169, 0, 129, 37, 32, 76, 141, 166, 750 30910 DATA 26, 32, 124, 137, 230, 116, 208, 18, 891 30920 DATA 230, 117, 76, 242, 138, 24, 105, 1, 933 30930 DATA 166, 26, 32, 124, 137, 162, 0, 32, 679 30940 DATA 101, 137, 32, 232, 139, 176, 150, 76, 1043 30950 DATA 253, 138, 76, 214, 139, 32, 223, 139, 1214 30960 DATA 169, 0, 32, 19, 137, 169, 255, 129, 910 30970 DATA 57, 161, 67, 240, 237, 161, 47, 201, 1171 30980 DATA 255, 240, 231, 32, 46, 140, 32, 87, 1063 30990 DATA 140, 165, 126, 73, 15, 240, 68, 32, 859 31000 DATA 212, 136, 166, 26, 32, 101, 137, 164, 974 31010 DATA 116, 136, 132, 116, 192, 255, 208, 2, 1157 31020 DATA 198, 117, 162, 0, 161, 47, 197, 121, 1003 31030 DATA 240, 18, 72, 32, 101, 137, 166, 26, 792 31040 DATA 160, 0, 104, 24, 105, 1, 32, 141, 567 31050 DATA 137, 76, 214, 139, 230, 118, 208, 2, 1124 31060 DATA 230, 119, 169, 0, 168, 32, 141, 137, 996 31070 DATA 32, 90, 141, 166, 26, 32, 141, 137, 765 31080 DATA 76, 214, 139, 162, 0, 161, 77, 197, 1026 31090 DATA 122, 208, 17, 32, 101, 137, 164, 118, 899 31100 DATA 136, 132, 118, 192, 255, 208, 95, 198, 1334 31110 DATA 119, 76, 214, 139, 24, 105, 1, 129, 807 31120 DATA 77, 32, 125, 140, 162, 0, 161, 47, 744 31130 DATA 197, 121, 240, 36, 24, 105, 1, 72, 796 31140 DATA 165, 127, 208, 6, 104, 129, 47, 76, 862 31150 DATA 214, 139, 32, 212, 136, 162, 0, 161, 1056 31160 DATA 77, 168, 104, 166, 26, 32, 141, 137, 851 31170 DATA 162, 0, 32, 101, 137, 76, 214, 139, 861 31180 DATA 165, 127, 240, 29, 32, 212, 136, 162, 1103 31190 DATA 0, 161, 77, 168, 169, 0, 129, 47, 751 31200 DATA 32, 90, 141, 166, 26, 32, 141, 137, 765 31210 DATA 230, 118, 208, 10, 230, 119, 76, 214, 1205 31220 DATA 139, 32, 90, 141, 129, 47, 32, 232, 842 31230 DATA 139, 144, 3, 76, 0, 139, 96, 169, 766 31240 DATA 0, 170, 168, 133, 114, 133, 115, 96, 929 31250 DATA 166, 114, 164, 115, 232, 224, 32, 208, 1255 31260 DATA 11, 162, 0, 200, 192, 16, 208, 4, 793 31270 DATA 24, 76, 253, 139, 56, 134, 114, 132, 928 31280 DATA 115, 96, 32, 112, 136, 165, 6, 41, 703 31290 DATA 31, 133, 114, 165, 7, 41, 15, 133, 639 31300 DATA 115, 166, 114, 164, 115, 169, 0, 32, 875 31310 DATA 19, 137, 161, 37, 33, 47, 201, 255, 890 31320 DATA 240, 11, 32, 232, 139, 176, 234, 32, 1096 31330 DATA 223, 139, 76, 17, 140, 96, 166, 114, 971 31340 DATA 164, 115, 232, 169, 2, 32, 19, 137, 870 31350 DATA 166, 114, 164, 115, 136, 169, 4, 32, 900 31360 DATA 19, 137, 166, 114, 164, 115, 200, 169, 1084 31370 DATA 6, 32, 19, 137, 166, 114, 164, 115, 753 31380 DATA 202, 169, 8, 32, 19, 137, 96, 169, 832 31390 DATA 0, 133, 126, 24, 162, 8, 161, 37, 651 31400 DATA 105, 1, 38, 126, 162, 6, 161, 37, 636 31410 DATA 105, 1, 38, 126, 162, 4, 161, 37, 634 31420 DATA 105, 1, 38, 126, 162, 2, 161, 37, 632 31430 DATA 105, 1, 38, 126, 96, 169, 0, 133, 668 31440 DATA 127, 24, 162, 8, 161, 47, 105, 1, 635 31450 DATA 38, 127, 162, 6, 161, 47, 105, 1, 647 31460 DATA 38, 127, 162, 4, 161, 47, 105, 1, 645 31470 DATA 38, 127, 162, 2, 161, 47, 105, 1, 643 31480 DATA 38, 127, 96, 32, 14, 136, 162, 0, 605 31490 DATA 160, 0, 132, 128, 134, 129, 132, 130, 945 31500 DATA 32, 138, 138, 248, 24, 165, 147, 105, 997 31510 DATA 1, 133, 147, 133, 140, 165, 148, 105, 972 31520 DATA 0, 133, 148, 133, 141, 165, 149, 105, 974 31530 DATA 0, 133, 149, 133, 142, 165, 150, 105, 977 31540 DATA 0, 133, 150, 133, 143, 169, 6, 133, 867 31550 DATA 145, 169, 53, 133, 110, 133, 112, 169, 1024 31560 DATA 4, 133, 111, 169, 216, 133, 113, 162, 1041 31570 DATA 3, 32, 197, 141, 166, 116, 164, 117, 936 31580 DATA 32, 1, 142, 173, 9, 136, 133, 145, 771 31590 DATA 169, 195, 133, 110, 133, 112, 169, 7, 1028 31600 DATA 133, 111, 169, 219, 133, 113, 162, 1, 1041 31610 DATA 32, 197, 141, 166, 118, 164, 119, 32, 969 31620 DATA 1, 142, 173, 7, 136, 133, 145, 169, 906 31630 DATA 224, 133, 110, 133, 112, 162, 1, 32, 907 31640 DATA 197, 141, 216, 165, 128, 208, 28, 165, 1248 31650 DATA 118, 5, 119, 208, 6, 169, 1, 133, 759 31660 DATA 128, 208, 16, 166, 129, 164, 130, 232, 1173 31670 DATA 208, 1, 200, 224, 255, 208, 7, 192, 1295 31680 DATA 255, 208, 3, 76, 94, 136, 76, 172, 1020 31690 DATA 140, 230, 128, 64, 165, 131, 24, 105, 987 31700 DATA 1, 197, 132, 48, 2, 169, 0, 133, 682 31710 DATA 131, 96, 165, 133, 24, 105, 1, 197, 852 31720 DATA 134, 48, 2, 169, 0, 133, 133, 96, 715 31730 DATA 160, 2, 185, 0, 0, 190, 0, 143, 680 31740 DATA 153, 0, 143, 150, 0, 200, 208, 242, 1096 31750 DATA 96, 160, 0, 132, 110, 132, 112, 132, 874 31760 DATA 135, 132, 137, 169, 3, 133, 107, 169, 985 31770 DATA 4, 133, 111, 169, 216, 133, 113, 169, 1048 31780 DATA 122, 133, 136, 169, 126, 133, 138, 136, 1093 31790 DATA 177, 110, 170, 177, 135, 145, 110, 138, 1162 31800 DATA 145, 135, 177, 112, 170, 177, 137, 145, 1198 31810 DATA 112, 138, 145, 137, 136, 192, 255, 208, 1323 31820 DATA 231, 230, 111, 230, 113, 230, 136, 230, 1511 31830 DATA 138, 198, 107, 48, 7, 208, 217, 160, 1083 31840 DATA 232, 76, 152, 141, 96, 160, 0, 230, 1087 31850 DATA 146, 181, 140, 32, 240, 141, 202, 16, 1098 31860 DATA 248, 96, 240, 15, 72, 169, 0, 133, 973 31870 DATA 146, 104, 9, 48, 145, 110, 165, 145, 872 31880 DATA 145, 112, 96, 165, 146, 240, 243, 169, 1316 31890 DATA 0, 145, 112, 169, 160, 145, 110, 96, 937 31900 DATA 72, 74, 74, 74, 74, 32, 210, 141, 751 31910 DATA 200, 104, 41, 15, 32, 210, 141, 200, 943 31920 DATA 96, 134, 151, 132, 152, 169, 0, 133, 967 31930 DATA 140, 133, 141, 162, 19, 70, 152, 102, 919 31940 DATA 151, 144, 13, 24, 181, 153, 101, 140, 907 31950 DATA 133, 140, 181, 152, 101, 141, 133, 141, 1122 31960 DATA 202, 202, 16, 233, 96, 84, 90, 72, 995